Option Explicit
'ThisWorkbookҲ
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    MsgBox Me.Name & "QCloseFC"
End Sub
